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MTHSHMIN 
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MTHSHMINI HMIN1 function 16-SEP-1984 01:37:37 VAX/VMS Macro V04-00 Page 1. MTH 
1-002 6-SEP 71382 te 30:7 MTHRTL.SRCJMTHHMIN1 .MAR; 1 ° (1) | 3-0 
0 1 <TITLE MTHSHMINI HMIN1 function 
§ -IDENT /1-002/ ; File: MTHHMINI.MAR EDIT: JCW1002 
: S eneneececcccccccecececccnccerececcnccccccereeeeqcccescceeceeeeeccenccceeeece | 
;* * 
$ 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * | 
§ 3* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
09 m :* ALL RIGHTS RESERVED. ‘ 
8 11 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sora’ * 
$ 1g 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH yi SE AND WITH THE * 
15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
00 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 1 :* TRANSFERRED. « 
3 ® 
444 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 , i CORPORATION. * 
3 te 
0900 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
00 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 4 ;* * 
0000 5 ;3* * 
44 § FARRAH AAA AAA AAA AAA AERA AAA AAA AAA AAA AAAAAAAEEAARAAARAERAAARAAR AAAS RAS 
0000 8: 
0000 9; FACILITY: MATH LIBRARY 
0000 0 ;+ 
000 1; ABSTRACT: 
000 ¢ : This module contains routine MTHSHMIN1: 
000 3 Return the smaller of nH floating-point 
0000 4; numbers. 
0000 5; 
0000 $ ; 
0000 ; 
0000 8 ;-- 
0000 9; 
0000 40 ; VERSION: 1 
0000 41; 
0000 $s 3 HISTORY: 
0000 43; 
000 44 ; AUTHOR: : 
44 oz $ Steven B. Lionel, 18-Jan-79: Version 1 | 
000 ‘3 : MODIFIED BY: 
000 49 ; Jeffrey C. Wiener, 14-May-84: Version 1 | 
00 50 ; | 
| 
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O08 6 -SBTTL HISTORY ; Detailed Current Edit History 

000 4 

rs 5 ; Edit History for Version 1 of MTHSHMIN1 

0 3 > 1-001 - Original. SBL 18-Jan-79 

00 58 ; 1-002 = The code as written did not work. Corrections were made to one AP 

0000 59 ; reference, all G_floating references were replaced by H_floating 

0000 60 ; references, BLSS was changed to BLEQ and some comments were fixed. 

0000 61 ; JC 14-May-1984 
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-SBTTL DECLARATIONS 
INCLUDE FILES: 
NONE 


EXTERNAL SYMBOLS: 
NONE 


-PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 


EQUATED SYMBOLS: 
NONE 


OWN STORAGE: 
NONE 


§ ; MACROS: 
: NONE 
t PSECT DECLARATIONS: 
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++ 
FUNCTIONAL DESCRIPTION: 
petra the minimum of n arguments, n is greater than or equal 


Because the result can not be represented in 64 bits, the 
minimum of arguments 2 through n are returned as argument 1. 


CALLING SEQUENCE: 
CALL MTHSHMIN1 (minimum.wh.r, C{arg.rh.r)) 


INPUT PARAMETERS: 
The mn parameters are H floating point values 
and are call-by-reference. 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
The H floating output parameter is returned by reference. 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand exception can occur. 


-ENTRY MTHSHMINI, “M<> 
MOVZBL (AP), R1 ; R1 = arg count 
DECL R1 ; R1 = the actual number of parameters 
TSTL (AP) + 3; bump AP by 4 
MOVL (AP), RO 3 save result address 
TSTL (AP) + 3; AP_-> first ar 
1$ MOVH @a(AP)+, (RO) 3 (RO) = trial min 
BRB 3$ ; check arg count ; 
2$: CMPH a@(AP), (RO) ; if this arg is less than trial min 
BLEQ 1$ 3; then it becomes new trial min 
TSTL (AP)+ ; else ignore it 
3$: SOBGTR R1, 2$ 3; return if arg count exausted 
RET 3; with min in first arg 
END 
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MTHSHMIN 00000000 RG 01 


¢eoeoeeoeceoeeeocecn} 


! Psect synopsis ! 


¢ ww err er ewes sco wen } 


PSECT name Allocation PSECT No. Attributes 


- ABS, 0000000 ¢ :3 69 ( Q.) NOPIC “USR CON ABS LCL — NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 0000021 ¢ 33.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


a + 


! Performance indicators ; 


guoececceceeeccooceccesce 


Phase Page faults CPU Time Elapsed Time 


Initialization 3 00:00:00.11 : * 77 
pounene processing 1 0: B: 8-28 :00: 48 
s 1 66 0:00:00.4 : 8: “* 
Symbol table sort 0 0:00: 5-90 00:00:00.00 
40 0:00:00.34 0:00: 4-8) 

cess ef table output 1 8: :00.01 0:00:00.01 
Psect synopsis output 3 3 :00. 0: 3: 0.01 
Cross-reference output 0:00:00. 0:00: 9-00 
Assembler run totals 246 00:00:01.4 0:00:07.84 


Ht working get Limit was 750 pages. 
1513 bytes (3 pages) of virtua memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space mi leceree to hold 1 non-local and 3 Local symbols. 
147 source Lines were read in Pass 1, "aetine”S me object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


Macro Library name Macros defined 
_$255SDUA28: (SYSLIBISTARLET.MLB;2 Rese & 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHHMIN1/OBJ=0BJ$:MTHHMIN1 MSRC$:MTHHMIN1/UPDATE=(ENHS : MTHHMIN1 ) 
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